home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / c-f (flop).seq < prev    next >
Encoding:
Text File  |  1992-01-01  |  1013 b   |  42 lines
  1. ;speeder computer->floppy (floppy route)
  2.  
  3.     ldx #$10    ;
  4. l1  lda $1800   ;auf attention
  5.     bpl l1      ;warten und
  6.     stx $1800   ;data setzen
  7.     nop         ;auf c 64
  8.     nop         ;warten
  9.     ldx #$00    ;data-leitung
  10.     stx $1800   ;zuruecksetzen
  11.     nop         ;auf c 64
  12.     nop         ;warten
  13. l2  lda $1800   ;auf atn
  14.     bpl l2      ;warten
  15.     nop         ;zyklenausgleich
  16.     nop         ;
  17.     ldx $1800   ;bits 4 und 5
  18.     lda tab45,x ;holen
  19.     nop         ;
  20.     ldx $1800   ;bits 6 und 7
  21.     ora tab67,x ;einblenden
  22.     nop         ;
  23.     nop         ;warten
  24.     nop         ;
  25.     ldx $1800   ;bits 0 und 1
  26.     ora tab01,x ;einblenden
  27.     nop         ;
  28.     ldx $1800   ;bits 2 und 3
  29.     ora tab23,x ;holen
  30.     sta puffer,y;und datenbyte sichern
  31.     iny         ;
  32.     bne l2      ;naechstes byte
  33.     ldx #$0f    ;atn
  34.     stx $1800   ;zuruecksetzen
  35.     rts         ;und rueckkehr
  36.  
  37. tab45 .byte $00,$20
  38. tab67 .byte $00,$80,$10,$30,$40,$c0
  39. tab01 .byte $00,$02
  40. tab23 .byte $00,$08,$01,$03,$04,$0c
  41.  
  42.